my $obj = {a => 0};

for (0 .. 1000000) {
    #$obj->{a} += 1;
    ++$obj->{a};
}

print "$obj->{a}\n";
